This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.
Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.
library(readxl)
library(lubridate)
library(dplyr)
Global_ETF_symbols <- read_excel("~/Global-ETFs/Global-ETF-symbols.xlsx")
Global_ETF_symbols$Inception <- ymd(Global_ETF_symbols$Inception)
Global_ETF_symbols$Country <- gsub("iShares|MSCI|ETF|capped|currency|hedged|large-cap|all|min|vol|small-cap|adaptive|edge|\\b\\w{1,2}\\s", "", Global_ETF_symbols$Country, ignore.case = TRUE)
Global_ETF_symbols$Country[47]<-"United Arab Emirates"
Global_ETF_symbols<-Global_ETF_symbols[-65, ]testList
Japan Brazil India China Germany Canada South Korea
2007-01-03 14.20 46.70 NA 116.40000 27.15 24.75 48.73
2007-01-04 14.35 46.10 NA 112.29999 27.06 24.35 48.19
2007-01-05 13.98 44.47 NA 105.95001 26.61 24.27 47.03
2007-01-08 14.06 45.10 NA 109.04999 26.53 24.11 47.12
2007-01-09 14.15 43.95 NA 104.19999 26.65 24.16 46.60
2007-01-10 13.94 44.27 NA 102.15000 26.36 24.13 46.45
2007-01-11 13.87 44.67 NA 102.99998 26.60 24.24 46.81
2007-01-12 14.05 45.50 NA 105.39999 26.88 24.78 47.86
2007-01-16 14.10 44.95 NA 107.39001 27.03 24.44 48.01
2007-01-17 14.10 44.98 NA 106.25002 26.88 24.70 47.62
2007-01-18 14.09 44.69 NA 104.79999 26.73 24.43 47.35
2007-01-19 14.19 45.77 NA 106.35000 27.10 24.77 47.47
2007-01-22 14.19 45.93 NA 107.00002 26.79 24.49 47.00
2007-01-23 14.27 47.15 NA 108.90000 26.99 24.98 47.57
2007-01-24 14.46 47.52 NA 110.49998 27.15 25.23 48.60
Taiwan China United Kingdom Hong Kong Australia Mexico
2007-01-03 14.73 NA 23.55 16.16 23.54 51.70
2007-01-04 14.78 NA 23.50 15.99 23.10 51.25
2007-01-05 14.41 NA 23.05 15.87 22.72 50.05
2007-01-08 14.36 NA 23.15 16.27 22.85 50.38
2007-01-09 14.21 NA 23.00 16.23 22.98 49.00
2007-01-10 14.18 NA 22.94 16.08 22.82 49.50
2007-01-11 14.15 NA 23.25 16.12 23.03 50.10
2007-01-12 14.46 NA 23.47 16.28 23.42 50.35
2007-01-16 14.42 NA 23.47 16.48 23.38 50.61
2007-01-17 14.51 NA 23.47 16.59 23.36 50.70
2007-01-18 14.42 NA 23.42 16.55 23.50 50.14
2007-01-19 14.48 NA 23.68 16.84 23.81 50.50
2007-01-22 14.32 NA 23.56 16.94 23.76 50.54
2007-01-23 14.53 NA 23.76 17.06 24.26 51.45
2007-01-24 14.84 NA 23.91 16.92 24.06 52.50
Switzerland India Japan Spain Singapore Italy Indonesia
2007-01-03 24.99 NA NA 54.07 11.40 33.42 NA
2007-01-04 24.96 NA NA 54.10 11.42 33.34 NA
2007-01-05 24.79 NA NA 53.59 11.28 32.91 NA
2007-01-08 24.72 NA NA 53.74 11.27 32.95 NA
2007-01-09 24.79 NA NA 53.42 11.18 32.93 NA
2007-01-10 24.67 NA NA 52.59 11.01 32.58 NA
2007-01-11 24.80 NA NA 53.22 11.05 32.79 NA
2007-01-12 25.09 NA NA 53.57 11.22 33.16 NA
2007-01-16 25.10 NA NA 53.50 11.35 33.14 NA
2007-01-17 25.25 NA NA 53.45 11.39 32.94 NA
2007-01-18 25.18 NA NA 53.08 11.40 32.87 NA
2007-01-19 25.35 NA NA 53.85 11.60 33.32 NA
2007-01-22 25.14 NA NA 53.58 11.73 33.20 NA
2007-01-23 25.40 NA NA 54.04 11.84 33.45 NA
2007-01-24 25.31 NA NA 54.44 11.93 33.67 NA
Germany Russia Chile South Africa Thailand Turkey Sweden
2007-01-03 NA NA NA 112.35 NA NA 32.60
2007-01-04 NA NA NA 110.50 NA NA 31.58
2007-01-05 NA NA NA 107.95 NA NA 31.29
2007-01-08 NA NA NA 108.95 NA NA 31.25
2007-01-09 NA NA NA 108.17 NA NA 30.93
2007-01-10 NA NA NA 107.80 NA NA 30.59
2007-01-11 NA NA NA 109.06 NA NA 31.13
2007-01-12 NA NA NA 110.88 NA NA 31.65
2007-01-16 NA NA NA 111.99 NA NA 31.96
2007-01-17 NA NA NA 112.81 NA NA 31.96
2007-01-18 NA NA NA 112.92 NA NA 31.63
2007-01-19 NA NA NA 113.39 NA NA 32.08
2007-01-22 NA NA NA 114.21 NA NA 31.93
2007-01-23 NA NA NA 116.24 NA NA 32.25
2007-01-24 NA NA NA 116.76 NA NA 32.23
France Malaysia Peru Netherlands Poland Philippines
2007-01-03 34.34 9.30 NA 26.40 NA NA
2007-01-04 34.08 9.40 NA 26.36 NA NA
2007-01-05 33.64 9.30 NA 25.98 NA NA
2007-01-08 33.63 9.34 NA 26.02 NA NA
2007-01-09 33.72 9.38 NA 26.06 NA NA
2007-01-10 33.39 9.34 NA 25.84 NA NA
2007-01-11 33.78 9.36 NA 26.01 NA NA
2007-01-12 34.02 9.50 NA 26.35 NA NA
2007-01-16 33.88 9.69 NA 26.45 NA NA
2007-01-17 33.74 9.72 NA 26.48 NA NA
2007-01-18 33.64 9.79 NA 26.39 NA NA
2007-01-19 34.03 9.88 NA 26.72 NA NA
2007-01-22 33.74 9.84 NA 26.39 NA NA
2007-01-23 33.96 10.06 NA 26.60 NA NA
2007-01-24 34.23 10.29 NA 26.60 NA NA
New Zealand Japan Ireland Belgium Israel JPX-Nikkei 400
2007-01-03 NA NA NA 25.95 NA 125.30
2007-01-04 NA NA NA 25.67 NA 126.70
2007-01-05 NA NA NA 25.36 NA 123.82
2007-01-08 NA NA NA 25.55 NA 124.29
2007-01-09 NA NA NA 25.64 NA 125.07
2007-01-10 NA NA NA 25.42 NA 123.05
2007-01-11 NA NA NA 25.61 NA 122.92
2007-01-12 NA NA NA 25.73 NA 124.68
2007-01-16 NA NA NA 25.64 NA 124.89
2007-01-17 NA NA NA 25.74 NA 124.47
2007-01-18 NA NA NA 25.79 NA 124.18
2007-01-19 NA NA NA 25.87 NA 125.18
2007-01-22 NA NA NA 25.72 NA 125.04
2007-01-23 NA NA NA 25.82 NA 126.07
2007-01-24 NA NA NA 25.89 NA 127.88
Austria India United Kingdom Denmark Japan Brazil
2007-01-03 36.59 NA NA NA NA NA
2007-01-04 36.84 NA NA NA NA NA
2007-01-05 35.89 NA NA NA NA NA
2007-01-08 35.84 NA NA NA NA NA
2007-01-09 35.90 NA NA NA NA NA
2007-01-10 34.95 NA NA NA NA NA
2007-01-11 35.28 NA NA NA NA NA
2007-01-12 35.67 NA NA NA NA NA
2007-01-16 35.40 NA NA NA NA NA
2007-01-17 35.39 NA NA NA NA NA
2007-01-18 35.25 NA NA NA NA NA
2007-01-19 35.71 NA NA NA NA NA
2007-01-22 35.79 NA NA NA NA NA
2007-01-23 36.17 NA NA NA NA NA
2007-01-24 36.33 NA NA NA NA NA
Qatar United Arab Emirates Finland Norway United Kingdom Germany
2007-01-03 NA NA NA NA NA NA
2007-01-04 NA NA NA NA NA NA
2007-01-05 NA NA NA NA NA NA
2007-01-08 NA NA NA NA NA NA
2007-01-09 NA NA NA NA NA NA
2007-01-10 NA NA NA NA NA NA
2007-01-11 NA NA NA NA NA NA
2007-01-12 NA NA NA NA NA NA
2007-01-16 NA NA NA NA NA NA
2007-01-17 NA NA NA NA NA NA
2007-01-18 NA NA NA NA NA NA
2007-01-19 NA NA NA NA NA NA
2007-01-22 NA NA NA NA NA NA
2007-01-23 NA NA NA NA NA NA
2007-01-24 NA NA NA NA NA NA
China Colombia Spain China South Korea Saudi Arabia
2007-01-03 NA NA NA NA NA NA
2007-01-04 NA NA NA NA NA NA
2007-01-05 NA NA NA NA NA NA
2007-01-08 NA NA NA NA NA NA
2007-01-09 NA NA NA NA NA NA
2007-01-10 NA NA NA NA NA NA
2007-01-11 NA NA NA NA NA NA
2007-01-12 NA NA NA NA NA NA
2007-01-16 NA NA NA NA NA NA
2007-01-17 NA NA NA NA NA NA
2007-01-18 NA NA NA NA NA NA
2007-01-19 NA NA NA NA NA NA
2007-01-22 NA NA NA NA NA NA
2007-01-23 NA NA NA NA NA NA
2007-01-24 NA NA NA NA NA NA
Japan Australia Switzerland Italy JPX-Nikkei 400
2007-01-03 NA NA NA NA NA
2007-01-04 NA NA NA NA NA
2007-01-05 NA NA NA NA NA
2007-01-08 NA NA NA NA NA
2007-01-09 NA NA NA NA NA
2007-01-10 NA NA NA NA NA
2007-01-11 NA NA NA NA NA
2007-01-12 NA NA NA NA NA
2007-01-16 NA NA NA NA NA
2007-01-17 NA NA NA NA NA
2007-01-18 NA NA NA NA NA
2007-01-19 NA NA NA NA NA
2007-01-22 NA NA NA NA NA
2007-01-23 NA NA NA NA NA
2007-01-24 NA NA NA NA NA
Canada Mexico
2007-01-03 NA NA
2007-01-04 NA NA
2007-01-05 NA NA
2007-01-08 NA NA
2007-01-09 NA NA
2007-01-10 NA NA
2007-01-11 NA NA
2007-01-12 NA NA
2007-01-16 NA NA
2007-01-17 NA NA
2007-01-18 NA NA
2007-01-19 NA NA
2007-01-22 NA NA
2007-01-23 NA NA
2007-01-24 NA NA
[ reached getOption("max.print") -- omitted 2486 rows ]##the packages we need to grab the map data
library(rgdal)
library(sp)
library(leaflet)
##where to find the world map
## "http://www.naturalearthdata.com/http//www.naturalearthdata.com/download/50m/cultural/ne_50m_admin_0_countries.zip"
## Create spatial data frame
## Have a look at this in the global environment after it is loaded
## it contains the shape file, and population and gdp data, amongst other things
world <-readOGR(".", "CopyOfne_50m_admin_0_countries", verbose = FALSE)
##create shading by GDP
qpal <- colorQuantile("Blues", world$gdp_md_est, n = 20)
##create popup country name and economic stage
popup <- paste0("<strong>Country: </strong>",
world$name,
"<br><strong>Market Stage: </strong>",
world$economy)
leaf_world <- leaflet(world) %>%
addProviderTiles("CartoDB.Positron") %>%
setView(lng = 20, lat = 15, zoom = 2) %>%
addPolygons(stroke = FALSE, smoothFactor = 0.2, fillOpacity = .7, color =
~qpal(gdp_md_est), layerId = ~iso_a3, popup = popup)
leaf_world